home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / spiele / publicdomain / szenarion / hdinstall < prev    next >
Text File  |  1996-06-25  |  6KB  |  294 lines
  1.  
  2. (complete 0)
  3. (set @default-dest "SYS:")
  4.  
  5. ; Texts
  6.  
  7. (set #Intro-Txt
  8. (cat "\n\nWelcome to \n"
  9. "THE SZENARION V2.04\n"
  10. "HD Installation\n\n\n\n"
  11. "®1993-96 by Stefan Waschk\n\n"
  12. "this is SHAREWARE!\n"
  13. "see manual for registration or write to:\n"
  14. "___________________________________________________\n"
  15. "Stefan Waschk/Siegfriedstr.119/D-38106 Braunschweig\n\n"
  16. ))(set #Warning-Txt
  17. (cat "\n\nWARNING!\n"
  18. "--------\n\n"
  19. "Szenarion requires 5 MB free on your disk \n\n"
  20. "3MB RAM, >=Kick2.0, 68020++, AGA or FLICKERFIXER\n\n"
  21. ))(set #Path-Txt
  22. (cat "Select a directory for\n"
  23. "THE SZENARION V2.0"
  24. ))(set #Path-Help
  25. (cat "\nThis section lets you choose the "
  26. "target directory to install Szenarion. \n\n"
  27. "Default is SYS:\n\n\n"
  28. @askdir-help
  29. ))(set #Rename-Help
  30. (cat "\n    If your AMIGA has an arithmetic unit (MMU),\n"
  31.      "    rendering will take part much faster.\n"
  32.      "    Basic A1200 and 68LCxx AMIGAs don`t have it!\n\n\n"
  33. @rename-help
  34. ))(set #Screenmode-Help
  35. (cat "\n    If you own a A1200, A4000 with the AGA chipset,\n"
  36.      "    you must choose the EURO72 screenmode.\n\n"
  37.      "    With A2000, A3000(..) and FLICKERFIXER, you have\n"
  38.      "    to choose NTSCHIRESLACED!\n\n"
  39.      "    PICASSOII-users can use both, but have to set\n"
  40.      "    the refresh-time to one second. Scrolling will\n"
  41.      "    be worse, for that isn't done by blitter!\n"
  42. ))(set #Editor-Help
  43. (cat "\n    For editing character-files, You will\n"
  44.      "    have to specify your ascii-editor. Default is\n"
  45.      "    set to SYS:Tools/MEmacs\n\n"
  46.      "    Write changes to the ENV/Szenarion.config file:\n\n"
  47.      "    f.e. Path,Work:CED/CED\n"
  48. ))
  49.  
  50.  
  51. ; Main 
  52.  
  53. (message #Intro-Txt)
  54. (message #Warning-Txt)
  55. (set target 
  56. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  57. ))
  58.  
  59. (set @default-dest target)
  60.  
  61. (copyfiles
  62. (prompt "Copying to " #target)
  63. (help @copy-files-help)
  64. (source "")
  65. (dest (tackon target "Szenarion"))
  66. (pattern "szen_1.lha")
  67. )
  68.  
  69. (complete 10)
  70. (set #path1
  71. (cat "Tools/lha x "
  72.      (tackon target "Szenarion/szen_1.lha ")
  73.      (tackon target "Szenarion/")
  74. ))
  75.  
  76. (run #path1
  77.   (prompt "extracting file")
  78.   (help "not available now")
  79. )
  80. (set #path1
  81. (cat (tackon target "Szenarion/szen_1.lha")
  82. ))
  83. (Delete #path1)
  84.  
  85. (complete 35)
  86.  
  87. (if (exists "szen_2.lha") 
  88.   (
  89.     (copyfiles
  90.     (prompt "Copying to " #target)
  91.     (help @copy-files-help)
  92.     (source "")
  93.     (dest (tackon target "Szenarion"))
  94.     (pattern "szen_2.lha")
  95.     )
  96.   )
  97.   (
  98.     (message "\nInstert DISK II in drive\n\nDF0:\n___\n")
  99.     (copyfiles
  100.     (prompt "Copying to " #target)
  101.     (help @copy-files-help)
  102.     (source "DF0:")
  103.     (dest (tackon target "Szenarion"))
  104.     (pattern "szen_2.lha")
  105.     )
  106.     (message "\nReinstert DISK I in drive\n\nDF0:\n___\n")
  107.   )
  108. )
  109.  
  110. (complete 50)
  111.  
  112. (set #path1
  113. (cat "Tools/lha x " 
  114.      (tackon target "Szenarion/szen_2.lha ")     
  115.      (tackon target "Szenarion/")
  116. ))
  117.  
  118. (run #path1
  119.   (prompt "extracting file")
  120.   (help "not available now")
  121. )
  122. (complete 65)
  123.  
  124. (set #path1
  125. (cat (tackon target "Szenarion/szen_2.lha")
  126. ))
  127. (Delete #path1)
  128.  
  129. (if (exists "szen_3.lha") 
  130.   (
  131.     (copyfiles
  132.     (prompt "Copying to " #target)
  133.     (help @copy-files-help)
  134.     (source "")
  135.     (dest (tackon target "Szenarion"))
  136.     (pattern "szen_3.lha")
  137.     )
  138.   )
  139.   (
  140.     (message "\nInstert DISK III in drive\n\nDF0:\n___\n")
  141.     (copyfiles
  142.     (prompt "Copying to " #target)
  143.     (help @copy-files-help)
  144.     (source "DF0:")
  145.     (dest (tackon target "Szenarion"))
  146.     (pattern "szen_3.lha")
  147.     )
  148.     (message "\nReinstert DISK I in drive\n\nDF0:\n___\n")
  149.   )
  150. )
  151.  
  152. (complete 85)
  153.  
  154. (set #path1
  155. (cat "Tools/lha x " 
  156.      (tackon target "Szenarion/szen_3.lha ")     
  157.      (tackon target "Szenarion/")
  158. ))
  159.  
  160. (run #path1
  161.   (prompt "extracting file")
  162.   (help "not available now")
  163. )
  164. (complete 95)
  165.  
  166. (set #path1
  167. (cat (tackon target "Szenarion/szen_3.lha")
  168. ))
  169. (Delete #path1)
  170.  
  171. (complete 96)
  172. (startup "Szenarion"
  173.     (prompt "Some commands will be added to your \"s:user-startup\" file.")
  174.     (help @startup-help)
  175.     (command "assign Szenarion: \"" (tackon target "Szenarion") "\"\n")
  176. )
  177.  
  178. (complete 97)
  179.  
  180. (set #path2
  181. (cat (tackon target "Szenarion/ENV/Szenarion.config")
  182. ))
  183.  
  184. (
  185.   if ( askbool
  186.         (prompt "now modifying the SCREENMODE. EURO72(AGA)\nor NTSCHIRESLACED (FLICKERFIXER) is possibe.\n\n____________________________________\nDo you want to open EURO72 screens?" )
  187.         (help #Screenmode-Help)
  188.      )
  189.   (
  190.      (set #path1
  191.      (cat (tackon target "Szenarion/ENV/Szenarion.config.AGA")
  192.      ))
  193.      (Rename #path1 #path2)
  194.      (Delete #path1)
  195.      (set #path1
  196.      (cat (tackon target "Szenarion/ENV/Szenarion.config.noAGA")
  197.      ))
  198.      (Delete #path1)
  199.   )
  200.   (
  201.      (set #path1
  202.      (cat (tackon target "Szenarion/ENV/Szenarion.config.noAGA")
  203.      ))
  204.      (Rename #path1 #path2)
  205.      (Delete #path1)
  206.      (set #path1
  207.      (cat (tackon target "Szenarion/ENV/Szenarion.config.AGA")
  208.      ))
  209.      (Delete #path1)
  210.   )
  211. )
  212.  
  213. (complete 98)
  214.  
  215. (set #path2
  216. (cat (tackon target "Szenarion/RKSim")
  217. ))
  218. (set #path3
  219. (cat (tackon target "Szenarion/RFEditor")
  220. ))
  221. (
  222.   if ( askbool
  223.         (prompt "now installing the SZEMARION tools\n\nRKSim & RFEditor\n__________________________________\nDoes your AMIGA have a MMU ?" )
  224.         (help #Rename-Help)
  225.      )
  226.   (
  227.      (set #path1
  228.      (cat (tackon target "Szenarion/RKSim.68020MMU")
  229.      ))
  230.      (Rename #path1 #path2)
  231.  
  232.      (set #path1
  233.      (cat (tackon target "Szenarion/RFEditor.68020MMU")
  234.      ))
  235.      (Rename #path1 #path3)
  236.  
  237.      (set #path1
  238.      (cat (tackon target "Szenarion/RKSim.68020noMMU")
  239.      ))
  240.      (Delete #path1)
  241.  
  242.      (set #path1
  243.      (cat(tackon target "Szenarion/RFEditor.68020noMMU")
  244.      ))
  245.      (Delete #path1)
  246.   )
  247.   (
  248.      (set #path1
  249.      (cat (tackon target "Szenarion/RKSim.68020noMMU")
  250.      ))
  251.      (Rename #path1 #path2)
  252.  
  253.      (set #path1
  254.      (cat (tackon target "Szenarion/RFEditor.68020noMMU")
  255.      ))
  256.      (Rename #path1 #path3)
  257.  
  258.      (set #path1
  259.      (cat (tackon target "Szenarion/RKSim.68020MMU")
  260.      ))
  261.      (Delete #path1)
  262.  
  263.      (set #path1
  264.      (cat (tackon target "Szenarion/RFEditor.68020MMU")
  265.      ))
  266.      (Delete #path1)
  267.   )
  268. )
  269. (complete 99)
  270. (set #path1
  271. (cat target
  272.      "Szenarion.info"
  273. ))
  274.  
  275. (copyfiles
  276. (prompt "Copying to " #target)
  277. (help @copy-files-help)
  278. (source "")
  279. (dest target)
  280. (pattern "info")
  281. )
  282.  
  283. (set #path1
  284. (cat (tackon target "Szenarion.info")
  285. ))
  286. (set #path2
  287. (cat (tackon target "info")
  288. ))
  289. (message #Editor-Help)
  290.  
  291. (rename #path2 #path1)
  292.  
  293. (complete 100)
  294.